ggplotly(ggplot(covid_death_sdf1) +
geom_sf(aes(fill = incidence)) +
theme(legend.text = element_text(size = 4),
legend.position = 'right', axis.text.x = element_text(angle = 45)) +
labs(
title = "Covid-19 Cumulative Incidence \n March - September 2020 by ZCTA",
x = "Latitude",
y = "Longitude", fill = "Covid-19 Cumulative Incidence\n (Cases/100,000)"))
ggplotly(
ggplot(covid_death_sdf1) +
geom_sf(aes(fill = cum_death)) +
theme(legend.text = element_text(size = 4),
legend.position = 'right', axis.text.x = element_text(angle = 45)) +
labs(
title = "Cumulative Moraltiy Rate \n March - September 2020 by ZCTA",
x = "Latitude",
y = "Longitude", fill = "Cumulative Mortality Rate\n (Deaths/100,000)"))
ggplotly(
ggplot(covid_death_sdf1) +
geom_sf(aes(fill = pro_offers)) +
theme(legend.text = element_text(size = 4),
legend.position = 'right', axis.text.x = element_text(angle = 45)) +
labs(
title = "Proportion of SHSAT Offers\n in 2020 by ZCTA",
x = "Latitude",
y = "Longitude", fill = "Proportion of SHSAT Offers"))
Head back to the home page here.